home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / misc / amag / sh9301c.lha / Oberon(S.67) / Listing3.mod < prev    next >
Text File  |  1993-01-22  |  596b  |  23 lines
  1. MODULE Meinung;
  2. IMPORT
  3.   io;
  4. VAR
  5.   Eingabe: LONGINT;
  6. BEGIN
  7.   io.WriteString ("Ihre Meinung zu diesem Programm?\n");
  8.   io.WriteString ("(1) = Gut\n(2) = Schlecht\n(3) = Naja\n\nMeinung :");
  9.   IF io.ReadInt (Eingabe) THEN
  10.     IF Eingabe = 1 THEN
  11.       io.WriteString ("Wunderbar!\n");
  12.     ELSIF Eingabe = 2 THEN
  13.       io.WriteString ("Schade!\n");
  14.     ELSIF Eingabe = 3 THEN
  15.       io.WriteString ("Na und...\n");
  16.     ELSE
  17.       io.WriteString ("komische Meinung! nur 1-3 eintippen!\n");
  18.     END; (* IF Eingabe *)
  19.   ELSE
  20.     io.WriteString ("Fehler bei ReadInt() !\n");
  21.   END; (* IF *)
  22. END Meinung.
  23.